home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 36 / dvqmlfix.zip / DVQMLFIX.BAS next >
BASIC Source File  |  1988-10-05  |  2KB  |  45 lines

  1. '
  2. '  Program to fix Qmail Door v2.22 QWIKXFER.BAT for proper operation within
  3. '  a DESQview, multi-node environment.
  4. '
  5. '  Problems:
  6. '     1. QWIKXFER.BAT contains ECHO commands with redirection to comm ports.
  7. '        DOS and DESQview don't get along with respect to this type of
  8. '        redirection.  Use of these commands can cause frequent freeze-ups
  9. '        such that DSZ is not exited properly at the conclusion of the file
  10. '        transfer.  Solution is to use a command (ECHO_R) designed for
  11. '        communication with a comm port.
  12. '
  13. '     2. QWIKXFER.BAT contains CLS commands which disrupt screen I/O vectors
  14. '        within the DESQview environment such that QB4 (and possibly QB3)
  15. '        programs lockup.  Solution is to remove the CLS's
  16. '
  17. '                                  Jack Kilday, Sysop
  18. '                                  The Northern Lights
  19. '                                  207-766-2467    96/24/1200
  20. '
  21. defint a-z
  22. open "qwikxfer.bat" for input as 1
  23. open "qwikxfer.bak" for output as 2
  24. while not eof(1)
  25.   line input #1, in.line$
  26.   if left$(in.line$,3) = "CLS" then goto skip
  27.   n = instr(in.line$,"ECHO")
  28.   if n = 0 then goto nutten
  29.   m = instr(in.line$,"> COM")
  30.   if m = 0 then goto nutten
  31.   comm.port$ = mid$(in.line$, m+5, 1)
  32.   in.line$ = left$(in.line$,m-1)
  33.   in.line$ = right$(in.line$,len(in.line$)-4)
  34.   in.line$ = "ECHO_R"+comm.port$+in.line$
  35.   print #2, in.line$
  36.   in.line$ = "ECHO_R"+comm.port$+"  "+chr$(10)
  37. nutten:
  38.   print #2, in.line$
  39. skip:
  40. wend
  41. close
  42. kill "qwikxfer.bat"
  43. name "qwikxfer.bak" as "qwikxfer.bat"
  44. system
  45.